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DOCUMENTATION 

ECH 
BSE 
HVP 
COE 
IPA 
WLE 
DTE 
OPT 
UNS 
DCK 
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JERROR CORRECTION HARD 
?RAD SECTOR ERROR 
?HEADER VRC ERROR 
^CYLINDER OVERFLOW ERROR 
?INVALID DISK ADDRESS ERROR 
?WRITE LOCK 
;DRIVE TIMMING ERROR 
OPERATION INCOMPLETE 
?DRIVE UNSAFE 
;DATA CHECK 



ERRORS GENFPATED TN RKDS 

ACL 

DCL 
DOT 
WRL 



;DRIVE AC POWER LOW 

?DRIVE DC POWER LOW 

?DRTVE OFF TRACK 

?WRITE LOCK 



ERRORS GENERATED IN RKCS2 



UFE 
MDS 
PGE 

NEK 
NED 
UPE 
WCE 
DLT 



;UNIT FIELD ERROR 
;MULTIPLE DRIVE SELECT 

programming error 
;non existant memory 

;NON EXISTANT DRIVE 
?UNIRUS PARITY ERROR 
;WRITE CHECK ERROR 
?DATA LATE 



ERRORS GENERATED IN RKCSl 



CDT 
CTO 
CFM 
SPA 
CEP 



?CONTROLLER DRIVE TYPE 
?CONTROLLER TIMEOUT 
CONTROLLER FORMAT 
;SERIAL PARITY ERROR 
?CONTROLLER ERROR 



CAUTION: THE PKC6 SUBSYSTEM WILL GENERATE TWO (2) INTERRUPTS 
WHEN ISSUED AN EXPLICIT SEEK COMMAND. WHEN NO HEAD 
MOTION IS REQUIRED ONLY ONE INTERRUPT REACHES THE PROCESSOR, 
HOWEVER; ON SYSTEMS THAT HAVE MANY DEVICES BEING 
EXERSTZED THE SECOND INTERRUPT MAY OCCUR WHILE THE MODULE 
IS SERVICING THE FIRST (PRIORITY ZERO) WHICH CAN 
LEAD TO CONFUSSION. 



JlKBD DEC/Xll SYSTEM EXERCISER MODULE 
XRKBDJKPil 12-OCT-78 12:08 
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DOCUMENTATION 

*NLIST 
*LIST 
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MC,TTM,CND,MD 
MF 



»SBTTL CALL MONITOR FOR SETUP 



AA ,*=- 045522 042102 

060605* 000 

211 000024" 000000 

279 000026' 150000 

1 am m 

283 000036* 000^ 

184 000040* OOOi 

185 000042* OOOi 

"" £§99^" qoqi 

000046* OOOi 

000050* OQQU. 

88881?' 888888 

000056* 

|-:r 



40 



0765 



00 



564^ 000000 

M J»: 388888 

ooeiol- oonoo ° 

11 Hlte mil 



bUM 



«EBBi86 c/ * u SYS I?Mv^S ISER mo ^ 

•LIST RTN 



..ASCII /PKBD / 
«BYTE OPEN 



W 



PPTY5+0 
PPTYO+0 



.BYTE 
+ 1 
OPEN 
OPEN 
OPEN 
OPEN 
***************** 

150000 
START 
! MODSP 

765 



W 8P1 



OPEN 
OPEN 

:.M 

OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 
OPEN 
RESTRT 



^MODULE NflVE a 

fUSED TO KEEP TRACK OF WBUFF USAGE 
■1ST DEVICE ADDR* 

1ST DEVICE VECTOR. 

[ST BR LEVEL. 
(2ND RR LEVEL. 
?DEVICE INDICATOR 1. 
(SWITCH REGISTER 1 
(SWITCH REGISTER 2 
(SWITCH REGISTER 3 
;SWITCH REGISTER 4 

********************************ft**frftft*ftftft»ft***& 

STATUS WORD. 
(MODULE START ADDR a 
(MODULE STACK POINTER, 
(PASS COUNTER. 

ift OF ITERATIONS PER PASS=765 
(LOC TO COUNT ITERATIONS 
(LOG TO SAVE TOTAL SOFT ERRORS 
(LOG TO SAVE TOTAL HARD ERRORS 
(LOC TO SAVE SOFT ERRORS PER PASS 
(LOC TO SAVE HARD ERRORS PER PASS 
'* OF SYS ERRORS ACCUMULATED 
(HOLDS RANDOM J WHEN RAND MACRO IS CALLED 
(RESERVED FOR MONITOR USE 
(RESERVED POP MONITOR USE 
(RESERVED FOR MONITOR USE 
fLOC TO SAVE P0» 
fLOC TO SAVE Rl. 

'"" ~~ R2» 

R3. 



iK M 



fc8H8»i_ .. 

LOG TO SAVE R4* 
?LOC TO SAVE R5. 
LOG TO SAVE R6* 
ADDR OF CURRENT CSR* 
ADDR OF GOOD DATA, OR 
CONTENTS OF CSR* 
ADDR OF PAD DATA, OR 
STATUS REG CONTENTS* 
TYPE OF ERROR 
EXPECTED DATA, 
ACTUAL DATA, 
RESTART ADDRESS AFTER END OF PISS 



RfTBD DEC/X1 
IRfCBDOaPll 



1 SYSTEM EXERCISER MODULE 
12-QCT-78 12:08 




W- m\ 




MACYll 30AC1052) 12-OCT-78 
CALL MONITOR FOP SETUP 



WDTO: 

idnum: 
rbufva: 

RBUFPA: 
RBUFEA: 
RBUFSZ: 
WBUFPA: 
WBUFEA: 
WBUFRQ: 
WBUFS7: 
COERCTS 

£B85 CT! 
FREES 

MODSPS 



OPEN 

OPEN 

OPEK' 

124 

FBUF 

OPEN 

OPEN 

256. 

OPEN 



OPEN 
OPEN 
OPEN 



******************* 



16:59 PAGE 8 

?WORDS TO MEMORY PER ITERATION 
IWORDS FROM MEMORY PER ITERATION 
J* OF INTERRUPTS PER ITERATION 

? K99 l r! L L,I2!H TI .£ IC * TION number=i24 
?SiJS 5H££g5 virtual address 

lite ssftfg inm 1 address 

? ?.n!L 0F THE R E*D BUFFER 
?SgTTE BUFFER PHYSICAL ADDRESS 
;WRITE BUFFER EA BITS 
?WRITE BUFFER SIZE REQUESTED 
?WRITE BUFFER SIZE AVAILABLE 
>CDATA/DATCK ERROR COUNT 

? £B£JWBA tc k W0R 5 count 

?RESERVED FOR FUTURE USE 

********* ************************* ****ftfrft3 ft]& aaaa ft a Aft ^ 



5ISJL5 E C/* n SYSTEM EXERCISER MODULE 
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37 00031 
J fifliL 

mm 
mm 

000334 



mm 



Of? 
.00 
000 
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UUKfll-t 

•SBTTL CONSTANTS AND STORAGE 



BADSPT! C 






C 









f] 


FLAG: 





avflag: 





tcyl: 


o 


tsec: 


V 


TIMER: 


c 


cyladr: 





SECADR: 





wdcnt: 
CYLCNT: 


3l2. 


BUFADR: 


C 


CNT: 

FUNC: 


8 


xmem: 


C 


dskadp: 


8 


DYICE: 


DRIVE: 





KHP 


8 


icnt: 


.WORD 


DPICNT: 
WCNTl: 


• WORD 


WCNT2: 





RBUF: 


*BLKW 


CLK: 
CLK1? 


c 


SFTERR1 





int^lg: 

RKCSl: 


8 


RKWCS 


C 


RKBft: 





RKDA: 


8 


RKCS2: 


RKDS: 





rker: 


o 


RKASOF: 


8 


RKDCJ 


Rkecps: 





RKECPT: 


c 



i§£8c- SPei - 



;OF KNOWN BAD BLOCKS 



RROR TYPEOUTS 



JTHERSE'S ROD** FOR 

>5k K JLl§ NEVER CON 

;IF YOURS IS, YOU CANNOT RUN THIS PROGRAM 

;GO FIND ANOTHER PACK AND TRY AGAIN 



IS NEVER, JrbNSlJgRED BAD.. 



;FLAG WHICH IS PASSED BACK BETWEN PORTS 

?DRTVE AVAILABLE TIMER 

JHJJLDING LOCATION FQR CYLINDER krm ^ 

?TIMES OUT A PORT 

?DESIRED CYLINDER 
?OESIRED TRACK 

REPETITION COUNT 



7END OF PI 



SMM 11 ™ 



765 
300 

256. 



>DESIRED FUNCTION" 
^EXTENDED MEMORY BITS 

!SH?S E SIt i E kESS!B DRIVE number 

^AVAILABLE DRIVES 
^CURRENT SELECTED DRIVE 

J SECTOR/BLOCK COUNTER 
^ITERATION COUNT 

?WORD COUNT FOR READS 
JINPUT BUFFER 
;TIMEOUT CLOCK 
?TIMEOUT CLOCK 
;SOFT ERROR FLAG 
^INTERRUPT EXPECTED FLAG 

>G8HI R S{:fc ER status register 

?WORD COUNT (2'S COMPLEMENT) 

;BUS ADDR CLOW 16 BITS) 

JTRACK AND SECTOR ADDR 

ICONTR AND STATUS REG 2 

?DRIVE STATUS REG 

TERROR REG 

^ATTENTION REG 

^CYLINDER ADDR 

?ECC BAD BIT LOCATION 

?ECC PATTREN 



UU*ttl n s HW?S B Si?$§ Mom,LE 

m mm- mm 

053057 

mn 

40 70 
001430* 000016 

mm- mm 

398 001474^ 007414* 
,.1502* 000000 

mnv mm 



M&CYll 
CONSTANTS AND 



30AC1052) 

-- * — STORAGE 
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m 



11 



BLK1 



ERHARD=BIT0SBIT1!PIT2!BIT3!BIT5 IBTT9IBIT10 !BIT12!BXU4 

SlHARD="~ m - 

S2HARD= . _. _ 

DSHARD=BIT3lBIT4!BIT5?BITll 



= BITiqfBITlHRlU2t*>rTl3 

=B IT8$BIT9?PIT 10 IBIT11IBIT12IPIT13 IRITIS 



ERBUFS ,PLKW 
CNTRl: 
CNTR2: 



16 



DRPMSG5 

HSRD: 
NUMB: 
RETRY: 



DRVE 

NUMB 

DRPFD 

f\ 

-1 



.WORD 





[JEC/X11 SYSTEM EXERCISER MODULE 
• Pll 12-OCT-78 12:08 



%m*- 
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table: 



SVCS1 

SVWC 

SVBA 

SVDA 

SVCS2 

SVDS 

SVEP 

SVASOF 

SVDC 

SVECPS 

SVECPT 

177777 

SVCS1: Q 

svbas n 

SVDAS 6 

SVCS2: 

SVDS: 

SYERS 

SYASOFS 

SYDC3 

SVECPSS 

SVECPTS 

\ HOUSEKEEPING 
;IF RK07 DRIVE 
;IF RK06, MUST 



UNLOAD: 
SELDRYS 
SPINDLs 
CLRDRYl 

distnt: 
clrctr: 

REC&LXt 
PACFAC: 
RKFLGl 



«WQRD 
»&JORD 
«WORD 
• WORD 

a WORD 

a $IORD 

6 HOPD 
»WORD 
,WORD 



?END OF TABLE INDICATOR 

J SAVE OF CONTROLLER STATUS REGISTER 

;SAVE OF WORD COUNT (2"S COMPLEMENT) 

;SAYE OF BUS *DDR (LOW 16 BITS) 

JSAVE OF TRACK AND SECTOR ADDR 

?SAVE OF CONTR AND STATUS REG 2 

;SAVE OF DRIVE STATUS REG 

?SAYE OF ERROR REG 

?SAVE OF ATTENTION REG 

?SAVE OF CYLINDER ADDR 

?SAYE OF ECC BAD BIT LOCATION 

?SA?E OF ECC PATTREN 

COMMANDS 

IS SELECTED, THE BIT10 OF EACH COMMAND mSl BE SET 

BE RESET 



^UNLOAD COMMAND 

^SELECT A DRIVE 

JSTARTS THE SPINDLE 

?CLEAR THE DRIVE 

£CLEAR CCER ERROR WITH INTERRUPT DISABLE 

?CLEAR CONTROLLER ERROR 

^RECALIBRATE 

?PACK ACKNOWLEDGE 

^SOFTWARE RKH6 £ RK07 FLAG 

?BIT10 = 1 IF RK07„RESET IF RK96 



#BIT15SPIT6 

"MT15 



W 

3 





RKBD DEC/X11 SY 
XRKBD0.P11 



STEM EXERCISEP MODULE 
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MAIN LOOP 
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START: 



RESTRTs 



LOOPlS 




002012 



13 

III 002014 

483 002014 

484 002022 



104403 000000* 001476" 
104410 000000* 



ENTESTf 



•SPTTL 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

JSR 



MAIN LOOP 
£3072.,WDFR 
11536. £ WDTO 
««.*1NTR 



MOV JMOOSP^SP 



KEG 

m 

MOV 

MOV 

JSR 

GWBUFS* 

MOV 

NEG 

JSP 

3§R 

BP 

B1C 

1ST 
Btff 
JMP 




,DRYVE 
DSKADR 



ICKBK 



S£feffc c 

PC-NXTORV 
L00P4 
PC*CYCLE 
LODP2 

91, FLAG 
DVICE 

ENTEST 



END ITS* BEG IN 
PR L00P1 



MSGN$, BEGIN, DRPMSG 
ENDS, BEGIN 



fSTART AT BLOCK(SECTOR) 1 
*SET 1ST TI«E FLAG mt 

?CHECK ILL DRIVES 

2REST0RF STACK 

JSIZE OF'gllp^gJIIJfS 1 - » D0RESS "°" "-»» »»»"» 



mm isgigfig* 55 



;TNITIALI7E 
UNITIALIZE 



?5Q.pic^| - gtt 



JfGET WRITL 
J SAVE WRITE 



DRIVE ADDRESS 



ER INFORMATION 
BUFFER SIZE 



*GQ PIC* A DRIVE 

$§& T r!? ERE B , Vtt,3 R « E i E D0 " E 

JDO IT TO NEXT DRIVE 
>CLEAR FIRST TIME FLAG 

?8H? d ?eI e " to chect? 

•ELSE DROP MODULE 
;SIGNAL END OF ITERATION. 

?s? H n?f n% test ekd or piss 



JASCII MESSAGE CALL WITH COMMON HEADER 



5510 DEC/X11 SYSTEM EXERCISER MODULE 
XRKBDO.PU 12-OCT-78 12:08 



MACY11 30ftfl052) 
MAIN LOOP 
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002026 




)50* 

!54* 
60* 
64* 
002072* 

mm- 



000020 175762 CYCLES 
0004 176246 



'67 
002074* 

mm 




0* 000126* 
00C200 175714 



176250 
176244 



"||44<L 

004767 
535767 

nmh 

000207 



BIT 
BNE 
BIS 
JSR 
JSP 
JSP 
JSR 



#2C,SR 
CYCLEB 
M,FLA 



,SR1 

J.EB 

,FLAG 

PC,BLKADR 

PC, WRITE 

PC,WRITCK 

PC £ READ 



CDATA$, BEGIN, RBUFPA 

.♦? 

BIT 

BEQ 



j{PIT7,SRl 



B-PORT? 

BR IF SO f ELSE DO A-PORT 

SET THE S-PORT FLAG 

CONVERT PLK TO DISK ADDR 

GO WRITE A BLOCK 

GO DO WRITE CHECK 

GO READ A BLOCK 

REQUEST FOR MONITOR TO CHECK DATA 

IF ERROR. CONTINUE 
SINGLE PORT? 
YES-GET OUT 



JNOW UPDATE BLOCK FOR B-PORT*S INFORMATION 



176164 



3$S 
4SS 



JSP 
MOV 
MOV 
JSP 
MOV 
JSR 
DFC 
BNE 
JSP 

RTS 
MOV 



PC,CLPRB 

FLAG/RBUF 

RLK1.PBUF+2 

PC.WRTOO 

#5C000, TIMER 

PC. RELEASE 

TIMER 

FC.DROP 
PORTHG 

#2,R0 



BREAKS, BEGIN 
BPFAK$, BEGIN 



001516 

000002 176154 



C00126* 



DEC ' RO" 

BNE 4$ 

JSR PC,RD00 

BIT #2,RBUF 

BE© Is 

JSR PC, RE AD 

CDATA$/BEGIN,RBUFPA 

5$: RTS PC 



?clear the read buffer 
;put info in first word 
?put current addr in nxt 
;go update plock o 
;init wait loop 
;give the drive to b 



^TEMPORARY RETURN TO MONITOR.... 
?THEN CONTINUE AT NEXT INSTRUCfiON. 



?GO READ BLOCK 

?HAS B UPDATED BLK YET? 

;BR BACK IF NOT 

;GO READ THE DATA B WROTE 

I SP^ioVW?^" I0 CHECK 0i " 



KM 11 



000001 




module 



MACYll 3CAC1052) 
MAIN LOOP 
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20* 

54} 851324" 

541 002326" 

in mw- 

546 002344* 

III iiiw 

549 002360 s 

550 002364* 

551 002370* 

ii mw 

554 002406* 



558 002430' 

559 002430* 

560 002434* 

561 002440* 

562 002442* 

563 002444* 



176062 

176040 

000004 176104 

000001 176074 

000002 176064 



5?' 



251 
3SS 



45s 



176000 6$: 



175704 
175752 



7$: 



CLEB? 



MOV 
JSR 
BIT 
BEQ 
PIT 
BEQ 
BIT 
BEQ 
BIT 
BEQ 
JSR 
MOV 

BREAKS 

BREAK? 

DEC 

BNE 

DEC 

BNE 

JSR 

RTS 
MOV 
JSP 
JSR 
JSR 
JSR 
JSR 
BIS 
MOV 
JSR 
JSR 
MOV 

BREAK* 

BREAK? 

DEC 

BNE 

RTS 



?» TIHEP 

jtl/FLAG 

#4,RRIJF 

#i,PBHF 

35 

J2/RBUF 

PC/PELEASE 
#2,P0 

g BEGIN 
/BEGIN 

RQ 

4§ 

TIMER 

15 

PC/DROP 

PORTHG 

PC 

RRUF+2 € PLK1 

PC/BLKADR 

PC/READ 

PC,WRITEB 

PC/WRITCB 

PC/CLPRP 

&2/FLAG 

FLAG/RBUF 

PC/WRTQO 

PC/RELEASE 

/BEGIN 
/BEGIN 

RO 

75 

PC 



?GQ SEE IF A IS DONE YET 

;IS THIS THE FIRST TIME SINCE ST&RT? 

?BR IF NO £ SKIP THIS CHECK 

?HAS k WRITTEN THIS BLOCK? 

?BR IF NO 

;HAS A SET THE FIRST TIME FLAG? 

|BR IF NOT/ MUST &AIT 

?HAS A WRITTEN THIS BLOCK SINCE B DID? 

?BR IF SO, ELSE 

?GIVE PORT TO A 

^TEMPORARY RETURN TO MONITOR.... 
JTHEN CONTINUE AT NEXT INSTRUCTION* 



?GET THE CURRENT BLKl 

•GENERATE DISK ADDR FROM IT 

;GO READ WHAT A WROTE 

?GO WRITE IT BACK OUT 

?GO WRITE CHECK IT 

;GO CLEAR BUFFER 

?SET BIT SAYING B*S DONE 

?PUT INFO INTO RBUF 

?GO WRITE IT FOR A TO SEE 

;GIVE DRIVE TO A 



^TEMPORARY RETURN TO MONITOR..,. 
?THFN CONTINUE AT NEXT INSTRUCTION. 



1RBD DEC/Xll SYSTEM EXE 
IRKBD0-P11 12-OCT-7B 



PCISER MODULE 
12208 



MACY11 30A(1052) 
INITIALIZATION 



12-0CT-7B 16;59 PAGE IS 
.SBTTL INITIALIZATION 



PI pa 

569 002462 

*« mm 

574 002500 

528 002512 

" m 





mm uiv,i 



SETUP? 



10S: 



20$ t 



^6" 176750 
050" 001476* 



mm 

176626 
176622 
176616 
176612 
176606 
176602 
176576 
176572 

176564 

176560 

175500 175500 

mm mm 

175120 

175110 
175444 175440 



MOV 

CMPB 

BNE 

MOVB 

MOV 

TSTB 

BEQ 

ASL 

DECB 

BR 

BITB 

BEQ 

BICR 

MOV 



DVID1,DVICE 
#13,3*41 
35 
»#40,R0 

r 

RC 
10$ 

Rl/DVICE 

pf/DVICE 
#LOAD,DRPMSG 



MSGN$, BEGIN, DRPMSG 



3$I 



GET DRIVE INDICATOR 

IF RK IS LOAD MEDIUM THEN 

BEGIN 

GET LOAD-DEVICE NUMBER 

INITIALIZE DEVICE MASK 

WHILE NOT POINTING AT LOAD DEVICE DO 

POINT AT NEXT DEVICE 

CODNT SHIFTS 
END 

IF LOAD-DEVICE IS SELECTED THEN 
BEGIN 

DROP LOAD-DEVICE 

SPECIFY LOAD-DEVICE DROP 
ASCII MESSAGE CALL WITH COMMON HEADER 

END 
END 



ISET UP DEVICE REGISTERS - USE ADDRESS SPECIFIED BY ADDR IN HEADER 



1$! 



MOV 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

CMP 

CMP 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

BIT 

BEQ 

MOV 



ADDR,R0 
R0/RKCS1 
CPO)* 
R0,PKWC 

<r6)* 

RO.RKBA 

(RO)* 

RO^RKDA 

R0.RKCS2 

(P0) + 

R0#RKDS 

(PO)* 

ROjPKER 

(RO)* 

RO^RKASOF 

(Pu )♦ 

R0 # PKOC 
R$U,(P0H 
P0)+ z (R0)+ 
0/RKECPS 

PO/fiKFCPT 

DVICE/DRIVE 

#-I,DPYVE 

5-1/DSKADR 

VECTOR/ RO 

#INTSPV,(P0)+ 

PIT7/SR1 
DPICNT,ICNT 



?GET DEVICE ADDRESS 

^GENERATE COHTROLLER REG ADDRESSES 



?SKTP UNUSED REGISTER 
?SKIP RKDP & RKMR1 



SSAVE IT IS DRIVE 

UNITIALIZE DRIVE COUNT 

UNITIALIZE SHIFTED DRIVE NUMBER 

;GET VECTOR ADDRESS 

?GET VECTOR ADDRESS 

?SET PRIORITY 

JDUAL PORT? 

?NO- BRANCH 

;VES/ LOAD DUAL PORT ITERATION COUNT 



RKBD DEC/X11 SYSTEM EXERCISER MODULE 
JCRKBD0,P11 12-0CT-78 12:08 

620 002716* 000207 



MACYll 3f<A<1052) 
INITIALIZATION 



12-OCT-78 16:59 PftGE 16 



2S: 



RTS 



PC 



RKBD DEC/X11 SYSTEM 
XRKBD0.P11 "- 



YSTEM EXERCISER MODULE 
12-OCT-78 12:08 



MACY11 3CA<1052) 
INITIALIZATION 



12-OCT-78 16:59 PAGE 17 



631 



012777 




0030 60 ' 



. .767 

5C167 

016777 



5* 000167 




6562 
2472 

6340 




003106 
177614 



176460 



000040 
002572 
176440 

000000' 
000047 

000000' 001376* 



007725' 
175132 



176366 
176350 



100000 176342 

175260 176320 
176302 

176270 



;CHECK SFLECTFD DRIVES TO SFE I 
;IF NOT READY AFTER DELAY, DROP 
CHKDRV: MOV #PIT5,0RKCS2 

JSR PC.CNTRDY 

TST flRKCSl 

BPL H 

MSGN$ / BEGIN / UNCLR 

M Q V #47#£RRTYP 
•a******************** 

HRDER$,BEGIN,RKCS1 
********************** 

JMP ENTEST 

IS: JSR PC,DRVADR 

BR 9$ 

JSR PC, READY 
NOP 



003204* 
003210* 



016777 176420 176216 

\$ 6021^2 

-- 412 

91VJ1 007747* 176300 

104403 000000' 001476* 

004767 003400 
010031* 





JSR 




JMP 


2$: 


MOV 


r 


MOV 




MOV 




JSR 




TST 




BM1 




BIT 




BEQ 




JSR 




JMP 


10$: 


MOV 


? 


MOV 




MOV 




CLR 




JSP 




TST 




BMI 


3$: 


BIT 




BNE 




BRFAK$ 




BREAKS 




DEC 




BMI 




BR 


20$: 


JSR 




JMP 


4$: 




/ 


MOV 




MOV 




w 




BR 


5$: 


MOV 




MS6N$,i 


6$: 


JSR 




SPIND 



PC,RDY1 

D$KADR,&RKCS2 
#3,«RKCSl 
PACKAC^GRKCSl 
PC f CNTftDV 

ft*" 1 

&PIT15,8RKDS 

PC,RDY1 

IS 

DSKADR,GR»fCS2 

SPINDL,»PKCS1 
CLK 

PC,CNTRDY 
0PKCS1 

#BIT15,9RKDS 

20$ 
,PEGIN 
/BEGIN 

CLK 



tt 



PC,PDY1 
1$ 

#5,«RKCS1 

CLPDRV,9RKC51 

PC,DRVRDY 

7? 

#DRVEPR,DRPMSG 
BEGIN, DRPMSG 

PC, DROP 



F READY 
THE DRIVE 
?SUB-SySTEM CLEAR 
?WAIT FOR CONTROLLER READY 
IERPOR? 
;NO-CONTINUE 

;ASCII MESSAGE CALL WITH COMMON HEADER 
SWONT CLEAR 

A**************************************** 
***************************************** 

?GO DROP MODULE 
?GET A DRIVE ADDRESS 
;DID ALL DRIVES 
*CHECK OUT RK06 OR RK07 

jdummy retupn address 

;the above line added 5-0ct-77 

;dpive available 

;no, load next drive address 
;drive select / pack acknowledge 

;PACK ACKNOWLEDGE 

TERROR"? 

;YES-DROP DRIVE 
;STATUS VALID 



?START SPINDLE 

JSTART THE SPINDLE 

JCLEAR TIMER 

?WAIT FOR CONTROLLER READY 

?ERROR? 

?YES-DROP DRIVE 

;ATTN SET-OPERATION COMPLETE? 

;VES-CONTINUE 

?TEMPORARY RETURN TO MONITOR.-,- 

;THEN CONTINUE AT NEXT INSTRUCTION. 

;TIME LET? 

;VES-TRV AGAIN 

/ NO 



;CLEAR ATTN BITS 
?DRIVE CLEAR 

;drive ready 

; NO-ERROR 

?SET UP ERROR MESSAGE 

JASCII MESSAGE CALL WITH COMMON HEADER 

?DROP DRIVE 



HHd 



)EC/ 
I. PI 



SYSTEM EXER* 
12-OCT-78 



3032 



hi* 

3220' 

HI': 

m mmmn 



000665 

004767 
0240 

.7502* 
00Q65«5 



CXSER MODULE 



^08 



MACVll 301(1052} 
INITIALIZATION 



12-OCT-78 16: 59 PAGE IE 



003056 



003360 



7S: 

B$: 
9$; 



BR 

JSR 

NOP 

BP 

JSR 

PR 
RTS 



IS 
PC,RECAL 

PC,DROP 
UNAVAL 

hi 



?T r V T0 RECALIBRATE THE DRIVE 
?DO NEXT DRIVE 



;RETURN 



tlBD DEC/Xll SYSTEM EXERCISER MODULE 
I§KBD0*P11 12-OCT-78 12;08 



MACY11 3f'A(1052) 
INITIALIZATION 



12-OCT-78 16:59 PAGE 19 



003236* 



. __5l 
003254 

003274* 

mm' 

003306* 
003310" 

imw 

003324" 



003336' 

003340' 
003344' 



004767 003222 NXTDRVS JSR 

Si!? !«S3 

016777 175064 176124 1$S 

iv,v, mm mi06 ' 

05777 176076 

<H76? 002050 

00410 

32777 004000 176072 2$? 

8W£? 003264 
~7464" 



000737 

mm 



003254 



000002 



3$; 



m 



JSR 

JMP 

MOV 

MOV 

MOV 

JSR 

TST 

BMI 

JSP 

BR 

BIT 

BEQ 

JSP 

BR 

JSR 

BP 

ADD 
RTS 



PC,DRVADR 

PC,RDY1 

NXTDRV 

DSKADR,aRKCS2 

piTO/aRKCSl 

SFLDRV#3RKCS1 

PC,CNTRDY 

0RKCS1 

PC,DRVRDY 

3$ 

#BIT11,®RKDS 

PC-DROP 

PROT 

NXTDRV 

PC, DROP 

DRVERP 

NXTDRV 

#2,(SP) 
PC 



?GET A DRIVE ADDRESS 
;RAD RETURN, NO DRIVE 

;LOAD DISK ADDRESS 

;SELECT DRIVE 

?SELECT DRIVE 

;WAIT FOR CONTROLLER READY 

;ERROR? 

JYES-GO DROP DRIVE 

;WAIT FOR DRIVE TO FINISH 

?WRITE PROTECTED ? 

;¥ES, DROP THE DRIVE 

;GO ON TO NEXT DRIVE 
?G0 DROP DRIVE 

?GET NEXT DRIVE 

;CQOD RETDTN 



RKBD DEC/Xll 
XRKBD0.P11 



s Ii!5St5?S"S$!S B M0DULE 




mm 



MACYll 30A(1052) 
INITIALIZATION 

PICKBK! 



12-OCT-7B 16:59 PAGE 20 



174756 



064734 
174732 



IS! 



2SS 
3$; 



MOV 
TST 
BEO 
CMP 

Bbl 

PR 

MOV 

MO¥ 

CMP 

BEQ 

DEC 

BNE 

RTS 



RANNU¥,BLK1 
BLK1 
PICKBK 
BLKl, #27100. 



pt6kbk 



*RADSPT,R0 

BLKlJCRO)* 

PICKBT 

Rl 

n 



;OQ NEXT BLOCK(SECTOR) 
;DO R4NDOM SEEKS? 
?NO-CONTINUE 

?GET RANDOM NUMBER 

; BLOCK SELECTED? 

;YES-GET ANOTHER BLOCK 

JOUT OP BOUNDS 

* US-CONTINUE 

;GO BACK TO BLOCK 1 

?TRY AGAIN 



■) 



JGET BAD SPOT TABLE 
?LOOK FOR 16 ENTRIE 
5lS THIS A BAD BLKl? 



? IL.XI s f G0 PIC * * H EH ONE 
fCOUNT A TABLE LOOK-UP 
;BR BACK IF MORE TO GO 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
X&fCBDS.Pll 12-OCT-78 12:08 



Mtti 

74642 
74642 



MACY11 30AC1052) 12-OCT-78 16:59 PAGE 21 
DRIVE COMMAND ROUTINES 



n*m 




•SPTTL DRIVE COMMAND ROUTINES 



WRITES 



174624 WRITO?: 



174610 READ: 



174456 
174440 



WRITEBS 



WRITCP: 



WRTOO: 

wrtoor: 



000121 174410 RD00! 



MOV 
MOV 
MOV 
MOV 
JSP 
RTS 

MOV 
JSR 
RTS 

MOV 
MOV 
MOV 
MOV 
JSP 
RTS 

MOV 
MOV 
MOV 
MOV 
JSR 
RTS 

MOV 
MOV 
MOV 
MOV 
JSR 
RTS 

MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
JSR 
RTS 

MOV 
BR 



#123 f FUNC 

KCNT1 C WDCNT 

WBUFPA/BUFADR 

HBUFEA/XMEM 

PCEXCUTE 

PC 

*131#FUNC 
PCEXCUTE 
PC 

#121 / FUNC 

WCNT2<WDCNT 

RPUFPA^BUFADR 

PBUFEA,XMEM 

PCEXCUTE 

PC 

WCNT2<WDCNT 

RBUFPA,BUFADR 

RBUFEA,XMEM 

PCEXCUTE 

PC 

»131*FUNC 

WCNT2 € WDCNT 

RRUFPA/BUFADR 

RBUFEA,XMEM 

PCEXCUTE 

PC 

#123 C FUNC 

wcnt2,wdcnt 

rbufpa,bufadr 

rbufea,xmem 

TCYL 

TSEC 

PC/EXCUT1 

PC 



;LOAD WRITE FUNCTION 

>LOAD WORD COUNT 

?LOAD BUFFER ADDRESS 

SLOAD EXTENDED MEMORY BITS 



;LOAD KRITE-CHECK FUNCTION 



?LOAD READ FUNCTION 

;LOAD WORD COUNT 

?LOAD BUFFER ADDRESS 

fLOAD EXTENDED MEMORY BITS 



JLOAD WRITE FUNCTION 

;LOAD WORD COUNT 

;LOAD BUFFER ADDRESS 

;LOAD EXTENDED MEMORY BITS 



JLOAD WRITE CHECK FUNCTION 

;LOAD WORD COUNT 

;LQAD BUFFER ADDRESS 

;LOAD EXTENDED MEMORY BITS 



?LOAD WRITE FUNCTION 

?LOAD WORD COUNT 

JLQAD BUFFER ADDRESS 

;LOAD EXTENDED MEMORY BITS 

;do cyl o 

;SECTOR 



;LOAD READ COMMAND 



RKBO DEC/111 SYSTEN EXERCISER MODULE 

mmm.pn i2~oct~78 i2so8 



m 



003732" 016767 
003740" 016767 

mm mm 

003770" 016777 

vmm 
im"'~" 

' ' 030 * 00630 

mn- urn 



174366 




film 

174340 

Ml 

174302 
174316 



174300 
175544 
175326 



v-mm mm- 



174356 
174352 
175532 



175316 



M&CY11 30AQ052) 12-OCT-7R 16:59 PIGE 22 
DEVICE DRIVER fi INTERRUPT SERVICE 

»SBTTL DFVTCF DRIVER S. INTERRUPT SERVICE 



EXCUTES 

EXCUTl: 
EXCUT2: 



175404 IS: 



MOV 
MOV 
MOV 
CLR 
JSR 
JMP 
MOV 
MOV 
MOV 
MOV 
MOV 
ASL 
ASL 
ASL 
ASL 
BIS 
BIS 
MOV 
MOV 
FXIT 



1M 
PC 
RE 
BU 
WD 
TC 
TS 
XM 

rC 

R0 
RC 
F!l 
RK 
RO 

£1 
$,BF.GT 



LIDR,TCYL 

CADR^TSEC 

, RETRY 

T>LG 

,RDY1 

STRT 

FADR,GRKBA 

CNT,gRKWC 

YL,»RKDC 

EC,«RKDA 

EM/RO 



NC,R0 
FLG,R0 
,aRKCSl 
,INTFLG 



;GET CYL ADDR 

?GET SECTOR ADDRESS 

•CLEAR EXPECTED INTERRUPT FLAG 



?LQAD CYLINDER ADDR 
?LOAD THE ADDR OF SECTOR 
?EXTENDED MEM BITS 



;ADD FUNCTION CODE 

;SFT/RESET THE BIT10 

^EXECUTE THE FUNCTION 

?TURN ON EXPECTED INTERHPT FLAG 

;EXIT TO MONITOR, MODULE EAIT FOR INTERRUPT*, 



56IU! c p{? 11 



SY 

004062 
004070 



EBStEWSJIBS M0DULE 
042777 100100 175306 
000004 000000" 004076* 



MACYll 
DEVICE 



30AC1052) 
DRIVER " 



12-OCT-78 16:59 PAGE 23 
& INTERRUPT SERVICE 



175272 

140000 



M 




_ 004172* 

i mm 

" 004210* 



6 9 
004234* 



0446 
2767 
4403 
2767 



002412 

mm 

0011 



838 



8 



004242* 
OQ4250* 

\m 

004262* 

mm- 
mnv 



004314* 
004322" 



012777 
QQ4767 

ma 

m 

104403 
012767 




.4352* 

881318' 



104405 000000* 

000040 
001250 
175116 

000252' 

himt- 
mnr 

000000* 

175466 

000036 

175146 

000001 

002232 



175264 



175216 



256 
476* 

652 



001510" 
175136 



INTSRV: 

IS; 

2$S 
3$; 



4$: 



175176 

001476* 

173572 

001376' 



5S: 



173446 



BIC #BIT15!BIT6,<aRKCSl JDISABLE INTERRUPTS 

PIRQ$,BEGIN,1$ } QUEUe"op"to"cONT1[NOe"It"i5"aNd"rTi" 



TST 
BEQ 
BIT 
BEQ 

MOV 
MOV 
MOV 
MOV 
DEC 
BGF 
MOV 
MOV 
MOV 
JSR 
TST 
BPL 
JSP 

JMP 

TST 

BMI 

MOV 

MSGN$ 

MOV 

• **** 

HRDER 

• **** 

MOV 

JSR 

TST 

BMI 

MOV 

JMP 

MOV 

MSGN$ 

MOV 

• **** 

HRDER 

. **** 

JMP 

JSR 

BR 

DEC 

BGE 

BIT 

BEQ 

JSR 

BR 



INTFLG ;ARE WE REALLY EXPECTING AN INTERRUPT? 

2$ __ 5NO-MUST BE ERROR CONDITION 

#PIT151PIT14,9RKCS1 ?ERROR OR DRIVE INTERRUPT 
6$ ^NO-MUST PE OKAY 



#12, RO 
RKCS1/R1 
#SVCS1,R2 
(R1)+,(P2>* 

RO 
3S 

RKCS1,CSRA 
SVCS1,ACSR 
#FIT15,GRKCS1 
PCyCNTRDY 
(8RKCS1 
4$ 

PC, DROP 
UNCLR 
RESTRT 
SVCS1 
5$ 

8FXTRA £ URPMSG 
,BEGIN,DPPMSG 
fll^ERRTYP 

********** ******* 1ei 

$, BEGIN, TABLE 

****************** 

£BIT5,«RKCS2 
PC,CNTRDY 

l?* csl 

#MODSP,SP 
LOOP3 

lUNCLR,DRPMSG 
. BEGIN, DRPMSG 
#47,EPRTYP 

******** * *********if 

$,BEGIN / PKCS1 
******************* 

ENTEST 

PC / ERRORS 

RETRY 

EXCUT2 

|BIT0,SR1 

PC, DROP 
RETRY 



?SAVE 11. REGISTERS 

?START OF SAVE REGISTERS 

} START OF MEMORY TO PUT THEM IN 



?SET UP CSR FOR ERROR CALL 

?SET UP CONTENTS OF SAME 

?CLEAR THE ERROR 

^CONTROLLER READY 

•ERROR? 

•■NO-CONTINUE 

?YES~DR0P DRIVE 

?START OVER 

TERROR? 

?RE p OPT THE ERROR 

?ASCII MESSAGE CALL WITH COMMON HEADER 
5ILLEGAL INTERRUPT 

******* ************************ ********* 
**************************************** 

^SUBSYSTEM CLEAR 

?WAIT FOR CONTROLLER READY 

TERROR? 

?YES GO DROP TEST 

?INITIALI7E THE SP 

?JMP TO L00P3 

?YES-LOAD MESSAGE 

?ASCII MESSAGE CALL WITH COMMON HEADER 

JWONT CLEAR 

**************************************** 

*********************** *****#*&** #**fc,srfcft 

?GO END IT ALL 



RKBD DEC/X11 SYSTEM EXERCISER MODULE 
XRKBD0*PU 12-OCT-78 12:08 



MACY11 30AC1052) 12-OCT-7R 16259 
DEVICE PRIVEP S INTERRUPT SERVICE 



PAGE 24 



857 

858 004362* 

860 004364" 



000207 
flQ*>167 



175270 



6?: 
7$: 



PTS 
JMP 



PC 
RESTRT 



SRM5C!" s ll 

863 004370* 

864 004370* 

Sll mm' 

iff UW: 

876 004434* 

877 004442* 



TEW EXERCISEP MODULE 
l-OCT-78 12:08 



00 4767 

mm 

004767 



f»425 



004444* 
"4450* 
4454* 
4460* 

004462* 
004466* 
004474* 

004476* 
004504* 

004506* 
004514* 



004520* 104405 000000' 



1422 



000154 
000200 
C0C362 
000004 

100000 

oooioo 

175072 
OOOolJ 

000554 
000010 

175004 



000000' 
173366 



MACVll 3CA(1C52> 12-OCT-78 16:59 PAGE 25 
ERROR HANDLER 

.SPTTL ERROP HANDLER 



ERRORS; 



175154 

173376 

175124 
175114 



173322 
000003 
001430* 
00151C 



1$5 



25: 



JSR 

PIT 

BEQ 

JSP 

BR 

BIT 

n° 
m 

BIT 
BNF 

MOV 
BTC 
CMP 

BNF 

JSP 
BIT 
PEG 

CMP 
BLT 

MSGNS 

CLP 

• **** 

HRPEP 

• **** 



PC,ERRGEN 
*PIT7,SVER 
PC,BSRD 
pIT2,SPl 

45 
2$ 

#PIT15,SVER 

*AIT6,SVEP 
2$ 

SVCS1,RC 

2$ 

PC,FCCOR 

tfBIT3,SRl 

4$ 

RETRY, i*3 
3$ 

,REGTN,ERBUF 
ERRTYP 

*************** 

S, BEGIN, TABLE 
*************** 



GENERATE THE ASCII MESSAGE 

;BAD SECTOR ERROR 

?SKIP THIS IF NOT 

;READ & C0MAPR5 BAD FILE SECTOR 

>NO MATCH - REPORT AS AN ERROR 

>TYPE ERROR MESSAGE? 

;NO JUST EXIT 

JTYPE IT ALL 

?DATA CHECK ERROR? 

5ECC HARD ERROR? 
JYES - GO REPORT IT 



;KFFP THE FUNCTION CODE 



; APPLY THE CORRECTION STUF 
?TYPE A MESSAGE 
?NO - JUST EXIT 



?ASCII MESSAGE CALL WITH COMMON HEADER 

******************************************** 
********************************* ********** * 



904 



m. m 

004540* 000402 



004542* 
004546* 



062716 
000207 



174640 
C01536 

000002 



3?: 



45: 

5$: 



Ml 

JSP 

BR 

ADD 
RTS 



SFTERR 

PC,PECAL 

5$ 

K2,(SP) 
PC 



|WAS IT A SOFT ERROR? 

INO - HARD - RECALIBRATE THE DRIVE 



RKBD DEC/X11 SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



174616 
007114* 

137400 174754 

036000 174734 

004070 174736 

053057 174730 



MACY11 30A(1C52) 12-OCT-78 16:59 PAGE 26 
ERROR MESSAGE GENFR8.TOR 




.SBTTL ERROR MESSAGE GENERATOR 



ERRGEN; 



007370' 
174532 



174614 



000020 174566 



5367 
1340 

ij[725 

12715 

000207 



007350* 
001454* 

000004 
174522 

174512 

007404' 
001504/ 
177777 



1$: 



2$: 



3$: 



4$: 



5$: 
6$: 



7$: 



CLP 
MOV 
MOV 
MOV 
BIT 
BNE 
BIT 
BNE 
BIT 
BNF 
BIT 
BNE 
MOV 
INC 
TST 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
BEQ 
COM 
MOV 

ftS 

BCS 
ROR 
BR 

CLC 

ROR 
BCC 
MOV 
MOV 
CMP 
BGE 

ADD 
DEC 
BNE 

DEC 
BNE 

MOV 
MOV 
MOV 
RTS 



SFTERR 

#ERTAP,P0 

pRBUF«R5 

ftHAPD,(R5) 

#S2HARD,SVCS2 

ttSlHARD/SVCSl 

#DSHAPD,SVDS 

#F.RHAPD,SVER 

#S0FT/(R5) 
SFTERR 
~P5) + 

4,CNTR1 

ERTAR,R0 

P0J+/R1 

RQ)+,R4 

PC)+,R3 
vRl),R2 
R3,R$ 
6 $ 
R3 
#16.,CNTR2 



R3 
4$ 
R2 
6$ 



§1 

R5,#ERBUF+24 
7$ 

K4,R4 
:WTR2 




;CLEAP SOFT ERROR FLAG 
?ERROR TABLE PARAMETERS 
?PRINT POINTER BUFFER 
;ASSUME THAT ITS HARD 

;any hard errors in rkcs2? 
;yes, report 

?any hard errors in rkcs1? 
;yes report 

;ANY HARD ERRORS IN RKDS? 

?REPORT 

?ANY HARD ERRORS IN RKER 

;MUST BE SOFT BY NOW 
?SET SOFT ERROR FLAG 

JCOUNTER FOR 4 REGISTERS 

;START OF ERROR TABLE PARAMETERS 

;GET ADDRESS OF POINTER TO REGISTER 

fADDRESS OF ERROR MESSAGE TABLE 

?GET MASK 

;GET CONTENTS OF REGISTER 

?KEEP ONLY THOSE IN BIT MASK 

;GQ TO NEXT REGISTER IF ZERO 



?CLEAR THE CARRY 
;ROTA"" 



TATE THE MASK WORD 
;ROTATE THE VALUE - DUMMY ROTATE 



;IS BIT SET? 

;NO 

;TWO SPACES 

?PUT ADDRESS OF MESSAGE IN TABLE 

?END OF BUFFER SPACE 

>YES - GO PRINT THEM 

;ADDRESS OF NEXT MESSAGE 
;DONF WITH THIS WORD? 



;DONE WITH ALL REGISTERS? 



#DRVE/(R5)+ 

Inumb5(r5)+ 



;end of messages 



RfBD DEC/X11 SYSTEM EXERCISER MODULE 
KftKBDO.Pll 12-OCT-78 12:08 



MACY11 30AC1052) 12-0CT-78 16:59 PAGE 27 
BAD SECTOR CHECK 




mm- 
fimv 

to; 



mm 




mm 

000002 
001012 

174460 

C01026 

mm 

173300 

mm 
mm 

mm 

173014 



mm 

174224 



mm- 



177777 
174354 
173112 

174256 
001010 



174502 BSRD: 



is: 



2$: 



174340 10$: 



174312 



3$: 



4$: 



SBTTL BAD SECTOR CHECK 
*M6,P0 



MOV 
MOV 



ADD 
CMP 
BNE 
CLP 

CMP 
BGE 
JSR 
JMP 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

MOV 

MOV 

MOV 

ASL 

ASL 

ASL 

ASL 

BIS 

BIS 

MOV 

JSR 

BR 

TST 

BMI 

MOV 
MOV 
DEC 
BEQ 

MOV 
MOV 
CMP 
BEQ 
CMP 
BNE 
CMP 
BNE 
BR 

TST 
BEQ 
MOV 
BR 



#2,R0 
R0/JU012 

HSRD 

R0/U026 

PC,PDY1 
RFSTRT 

DSKADR/&RKCS2 
#-400«flRKWC 
RPUFPA,«RKBA 
JtjU^PKDC 

.+8. 

M456,»RKDC 

RO.eRKDA 

RBUPEA,P5 

R5 

R5 

R5 

R5 

#21, R5 

R5/gPKCSl 
PC,r)PVRDY 

»RKCS1 

#177, Rl 
#RBUF+1Q,R2 

4S 

<R2)+,R3 
<R2)+,R4 
R3,#-l 

SVDC/P3 

3$ 

SECADR,R4 

3$ 

5$ 

HSRD 

|foiO,RO 



rEHSrlP INDICATE REAHING HARDWARE SECTORS 
;INITIAL SECTOR COUNT 



;DONE WITH HARDWARE FILE? 

?DOING SOFTWARE FROM NOW ON 

?END OF SOFTWARE FILE? 
;END OF FILE AND NO MATCH 



;load disk address 
;one sector transfer 
?buffer address 
>desired cylinder 
;br*nch if it is a 

?skip the next mov 

;last cylinder for rk07 
?disk sector/track address 
;get read buff ea bits 

JALIGN BITS 



RK06 
INSTRUCTION 



;loadfunction 

;SET THE RK06/RK07 FLAG 
;ISSUE THE FUNCTION 
?WAIT FOR DRIVE READY 

;ANY ERRORS? 
?YES IF SET 

;MAXINUM NUMBER OF BAD SECTOR ENTRIES 
;STAPT OF BAD SECTOR INFO 

;THIS IS THE END 

;CYLINDER INFOR 
;SECTOR/TRACK INFO 
?END OF SECTOR INFO 

;DESIPED CYLINDER? 
;NO - KEEP LOOKING 
;DESIRED SECTORS 
;NO - KEEP LOOKING 

;match return 

?OOING THE HARDWARE GUYS? 

;NO - ALL DONE THEN 

;SET UP FOR SOFTWARE FILE 



RKBD DEC/Xll 
XRKBD0.P11 



SYSTEM EXERCISER MODULE 
12-OCT-78 12:0* 



MACY11 30A(1052) 
BAD SECTOP CHECK 



12-(1CT-T8 16:59 PAGE 2R 



\m mm mm fl00002 



5S: 
6ls 



ADD 
PTS 



? 2,(SP> 



5E82J? EC £? n SYSTEM EXERCISER MODULE 
XRKBDO.Pll 12-OCT-7B 12:08 



MACY11 3CA<1C52) 12-OCT-7B 
ERROR CORRECTION ROUTINE 



005242* 0167C2 174300 

ite m hm 

mm urn 

005266* 88I281 
005270* 042701 C00001 
005274* 060102 

005276* 016703 174264 

1 !PP IP 

j|B 005320* 001374 

m. m 

005330* 040001 

«« WW m # 

©46 005340* 001405 

18 8!H«: mm 

mm 



174206 



ECCORS 



1$: 



2$s 



6:59 PAGE 29 
SBTTL ERROR CORRECTION ROUTINE 



005354* 000207 



3$: 



MOV 
SUP 
MOV 
DEC 

NOV 
ASP 
#SR 
ASR 
BIC 
ADD 

MOV 
CLR 

HIS 

SSI 

DEC 
BKE 

MOV 
MOV 
BIC 
BIC 

m 

BEQ 

MOV 
MOV 
BIC 
BIC 
BIS 

RTS 



SVBA-R2 

svecpS^ri 
#i,ri 

Rl,»2 

SVECPT,R3 
P4 

#177760, RO 

RO 
IS 

roJpi 

3$ 



90 



K:tt" 

R?;(R2) 
PC 



BEGINNING OF SECTOR ADDRESS 

'8XS8L8E BS D -3MA buffer 

^POSITION OF 



ERROR 



JOETERMINE WORDS THAT ARE BAD 

JCLEAR BYTE INDICATOR 
MDDRESS OF ERROR 

TERROR CORRECTION PATTERN . , t 

? Bi5«g8f iaS gT^8?s s 5IS R 5oSg §SS«g8? RECT, °" 

*SHIFT PATTERN LEFT ONE BIT 

JCHECK IF IN POSITION 

;CORRECT 1ST WORD WITH EXCLUSIVE OR 



^CORRECT SECOND WORD 



?RETURN 



RICBD DEC/X11 SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



005067 174004 




)4767 
)5777 
10442 
A J4767 
000167 
016777 
016777 



4767 



1086 



8 . 

mm 

032777 
001022 
104407 
104407 

mm 

012767 

mm 

104403 
000402 

hmi 



mm 

000654 
000116 

172734 173774 
174154 173756 



MACYll 

COMMON 



DRVRDY: 



1$: 



000100 
173746 

100000 

000200 173740 

888888- 

173700 

007526* 174000 
007747* 173770 
000000* 001476* 
000002 



173750 2$: 



3$: 

4$: 



30A(1052) 12-OCT-78 16:59 PftGE 30 

SUPPORT ROUTINES 

.SBTTL COMMON SUPPORT ROUTINES 

CLR CLK 

JSR PC / CNTRDY 

TST (3RKCS1 

BMI 3$ 

JSR PC,RDY1 

JMP 65 

MOV DSKADR,«RKCS2 

MOV SELDRV/I8RKCS1 

MOV #l,aRKCSl 
JSR PC/CNTRDY 

SSI S? fcsl 

BIT JBITlS^flRJTDS 

BFQ 3$ 

BIT PlT7,GRKDS 

BNE 5<I 

BREAKS, BEGIN 

BREAKS, BEGIN 

BE? ft* 

MOV aNOTRED,DRPMSG 

MOV WRVERR/DRPMSG 



CONTROLLER READY? 
;ANY ERRORS? 

?VES 



?SELECT DRIVE 

;SRROR? 
?YES 

;status valid 

;drive ready ? 
;yes, return 

?TEMPORARY RETURN TO MONITOR.... 

;then continue at next instruction. 
;no. wait some more ? 

>YES, WAIT 



MSGN$, BEGIN, DRPMSG 
BR 6$ 
ADD S2r(SP) 
RTS PC 



?ASCII MESSAGE CALL WITH COMMON HEADER 

; ADJUST STACK FOR GOOD RETURN 
;RETURN 



RKBD DEC/Xll 
XRKBD0.P11 



SYSTEM EXERCISER MODULE 
12-QCT-78 12:08 



MACYll 
COMMON 



30A(1052) 
SUPPOPT R 



12-0CT-78 
OUTINES 



16:59 PAGE 31 




mw hum 

001014 
104407 



1093 
1094 

1096 00557(5* 



104407 
005367 

554 ; mm 



)167 
)2C7 




173640 



173712 



SSI 



2?: 



TRDY: 



CLP CLK1 

BIT «BIT7,flRKCSl 

BNE 2$ 

BPEAKS#PFGIN 

BREAKS, BEGIN 

DEC CLK1 

BNE IS 

MOV f*CNTRNV,DRPMSG 

JMP ENTEST 

RTS PC 



?SET THE TIMER 

^CONTROLLER READY ? 

?YES, CONTINUE 

■TEMPORARY RETURN TO MONITOR.... 

?THEN CONTINUE AT NEXT INSTRUCTION. 

?WAIT SOME MORE ? 

;yes 

?stop the run 
?ready, return 



RKBD DFC/X11 SY 
XRKBDO.Pll 1 



STEM EXERCISER MODULE 
2-QCT-78 12-.08 



MACY11 3CAC1052) 12-OCT-78 
COMMON SUPPORT ROUTINES 



16;59 PAGE 32 



004767 

m<fy 




000056 

172540 173600 

173760 173562 
177704 

POoSn 173556 



173524 
173506 



00*001 
000002 

HHti 

mm 

010000 

173476 
1CO000 

000400 

173460 
C00040 



mm 

000002 

C0C011 

002000 001570* 

C00002 



000207 



mm 



0O157P* 



?BQL f Ti N1F: PETEPMTNES IF DRIVE IS AVAILABLE, READY, VOLUME 
?VALID, AND NOT WPTTE PROTECTED 



173350 



III 



REAHY5 

JSP 

PP 

MOV 

% MOV 

MOV 
JSR 
MOV 
PIT 
BEO 
TST 
REO 
BIT 
BNE 
ADD 
PTS 

1ROUTINE TO 

RKCHKS MOV 
MOV 
JSR 
MOV 
BIT 
BNE 
MOV 

REQ 
BIT 
REQ 
MOV 
RIT 

PFQ 
CLP 
MOV 
PIS 
DEC 
RFO 
ADD 

S? P 

MOV 
BIC 

SIS 

ADD 
BR 

RTS 



PC,PKCH* 
D$KADP*«RKCS2 

PC,CNTRDY 
|RKDS,R1 
BITC,f*RKDS 



|PIT0,R1 

PC 
CHECK CURRENT 



JCHECK IT IS A RK06/RK07 
;ERPOR EXIT FROM RKCHK 

;load drive number 

;SELECT DRIVE 

^SELECT THE DRIVE 

;WAIT FOR CONTROLLER READY 

JSAVE RKDS IN PI 

;DRIVB AVAILABLE? 

jNO 

;DRIVE READY? 

*NO 

JVOLUME VALID* 

JYES 

>S*IP TNSRTUCTION FOLLOWING CALL 



1*: 
2Ss 



3<5s 
4$! 



\\\ 

75: 



DSK#pP € *RKCS 

epiToJtarcsi 

PC £ CNTRDY 
MRKC$2,R1 
#BIT12,R1 

ePKDS,Rl 
*P1T15,R1 

*PIT8,R1 

«RKER,Rl 
*PIT5,R1 

6$ 
Rl 

fpftT0,UNLOAD(Rl) 

5< 
»2, PI 



LECTED DRIVE 



IS A RK06 
fLQIP. .THE 



? .,R2 
BI?10,UNLOID(R1) 



*P1 



mHsJaRKCSl 
PC 



IT IS 



VE ADDRESS 



CT DRIVE 



; ASSUME _ __ 

mu m i?» N ? 

;ned set ? 

ibranch if so 

Jread THE DRIVE STATUS 

J8M!&, , IPHr m, " ,w ? 

>IS IT A RK01 ? 

JBRANCH IF It IS 

?READ THE ERROR REGISTER 

JDRIVE TYPE ERROR MOST BE SET,IF RK0? 

;OTHERUISE ,EPROR 
;RK07 SET IIP 

{BRANCH IF ALL DONE 
) ADJUST TABLE ADDRESS 

JNINE COMMANDS 
JRESET RK07 FLAG 

lEXIT IF ALL DONE 

; ADJUST TABLE ADDRESS 

JBRAMCH RACK 

JNOPMAL EXIT 

JCLEAP THE CONTROLLER^ 



:DB 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 iJsO ~ 

006030* 012767 077777 173330 

73332 

73330 



til 

i hum m m : 



ja: ami iwh "»" 

Jffij: m """ """ 

,. 606102* 012601 

56 006106* 10 4407 000000* 

52 28§?1 2 * 15^407 cooooo* 

I IPfif- mm mm- 

\\ Mfc-uffl s,323 < 

jfi 006134* 000406 

?! mm- mm mm 
M' mm 

B: ubi- eo0432 

U'-tttiM 0000a2 




MACY11 30AC1052) 12-OCT-78 16s59 PAGE 33 
COMMON SUPPORT ROUTINES 

JROUTINE WAITS FOR DRIVE PEADY, IF NOT READY 

#.77777/CLK 



NQTRDYs MOV 

4$J MQV 

JSR 

MOV 

? MOV 
MOV 
JSP 
BIT 

SS? 

MOV 

BP 



6$S 



2$s 
7SS 



DSKADR,»RKCS2 
#BIT0,*PKCS1 

#PITG,!«RKOS 
2? 



break!, 
iff! 



BPFAK$, BEGIN 

BEGIN 

BEGIN 
BEGIN 



PRFAK £ , 

BREAKS, 

DEC 

BNE 

BP 

JSP 
JMP 

BP 

NOP 

JSP 

BP 



K;ftiA9 



PC c DP0P 

NOTRED 

3 $ 
tf' CS " 



;SST THE TIMER 

fCLEAR ERRORS FROM CU 

j WAIT FOR CONTROLLER READY 

;SELECT DRIVE 

J SELECT THE DRIVE 

JWAIT FOR CU READY 

;drive available 

•*0 



^TEMPORARY RETURN TO MONITOR.... 
JTHEN CONTINUE AT NEXT INSTRUCTION. 
^Temporary RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUcflON. 
;COUNT TIMER TO ZERO 

JDROP DRIVE 

nu r Mhww et ™ 5 - oct - 77 ' 

-ADDEO 5-0CT-77 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



210* 000240 



173172 



006212* 00^240 
006214* 000240 
O06216* <U6777 



172122 173162 



006224* 016777 173356 173144 



WW 




02C7 



006254* 004767 
0Q6260' 00 



Mil'- 

006270* 
006274' 



062716 
000207 



\UP* 



00 173132 



MACY11 3CAC1052) 12-OCT-78 16:59 PAGE 34 
COMMON SUPPORT ROUTINES 

;ROUTINE ISSUES A PRIVE CLEAR TO SELECTED DRIVE 

;AND THEN ISSUES A DRIVE SELECT AND P»CK ACKNOWLEDGE. 

;WILL ALSO CLEAR ANY CONTROLLER ERRORS BEFORE RETURNING. 



006170* 016777 172150 173210 CLEAR: 



1$: 



mov 

MOV 
VOV 
JSP 
NOP 
NOP 
NOP 
MOV 
MOV 
MOV 
JSR 
MOV 
NOP 
NOP 
NOP 
RTS 



DSKADP,P>RKCS2 
fc*,ftRKCSl 
CLPOPV-rflRKCSl 
PC/CNTRDY 



DSKADR,ffiRKCS2 

«3,(8PKCS1 

PACKAC,«RKCS1 

PC/CNTRDY 

itPIT15 # flPKCSl 



;get drive n 

?ISSUE DRIVE CLEAR 

JCLEAR THE DRIVE 



;TSSUE SELECT DRIVE AND PACK ACK. 
;ISSUE PACK ACKNOWLEDGE 
?WAIT FOR CU READY 
;CLEAR CU ERRORS 



;ROUTINE CALLS READY AND NOTRDY SUBROUTINES 



177312 
177542 



000004 



RDYl: 



IS: 



JSR 

BP 

JSR 

RTS 

ADD 

RTS 



PC,PEADY 

1? 

PC/NOTRDY 

PC 

*4,(SP) 

PC 



?CHECf FOR DRIVE AVAILABLE 
;GOOD RETURN 

?WAIT FOR DRIVE AVAILABLE 
?DRTVE NOT AVAILARLF 



Af^.. 



RKBD DEC/Xll SY 
XRKBO0..P11 1 



5 006276* 

.6 006302" 

7 006306* 

1219 006306* 



STEM EXERCISER MODULE 
2-OCT-78 12:08 



MACY11 3CAC1052) 12-PCT-78 
COMMON SUPPORT ROUTINES 



16:59 PAGE 35 



006326* 

mm- 



004767 177752 

000167 000154 

016777 173264 173062 

mm mm 

100447 

004767 177722 

00C167 003124 



RECAL: 
10$: 



20$: 



006406' 



m\w> 

006434* 



016777 



C01010 
104407 

mm 

100765 



245 006434* 000 

111 mm h 

,249 006450* 00 7 

a ste '" 

52 006454* 

h mm- 



173242 

mm 

173016 
040000 
000000* 

mm' 

am 

000403 

mw ooo ° 02 

** "767 000140 
.. 747* 
00*>403 

004767 000130 

mm' 



173032 



173020 1$: 



172746 



2$: 

30$: 

; 



3$: 
4$: 



5$: 



JSR 
JMP 

MOV 
MOV 
JSR 
TST 
BMI 
JSR 
JMP 

MOV 
MOV 
CLR 
JSF 
TST 
BMI 
BIT 
BNE 
BPEAK< 

m ksi 

BMI 
BR 
JSR 
JMP 

MOV 

MOV 

JSR 

BR 

ADD 

BR 

JSR 

BR 

JSR 

RTS 



PC, RDYl 

tf^GRKCSl 
CLPV ~ 



PV/^RKCSl 

PC/RDY1 
5<5 

#13,»RKCS1 
RFCALT/GRKCSl 

PC,CNTRDY 
«PKCS1 

PlT14/GRKDS 

/BEGIN 
/BEGIN 

CLK 

IS 

4$ 

PC/RDY1 

5$ 

#5,«RKCS1 

CLRDRV,«RKCS1 

PC/DRVRDY 

3$ 

||/(SP) 

PC, DROP 
DRVERP 



PC,DROP 

CALIB 

PC 



;CLR ATTN BIT 
;CLEAR THE ATT BIT 



?CONT] 
;ANY 



QLER READY 
PROP — 



DPS*? 
> YES-GO REPORT 



^RECALIBRATE THE DRIVE 

^RECALIBRATE THE DRIVE 

;CLEAR TIMER 

;WAIT FOR CONTROLER READY 

;ANY ERRORS? 

;YES-GO REPORT 

;ATTN SET-OPERATION COMPLETE? 

;YES-CONTINUE 

;TEMPORARY RETURN TO MONITOR.,.. 

;then CONTINUE AT NEXT INSTRUCTION. 

;time lfet? 

?NO 



•■CLEAR ATTN BITS 
>CLEAR ATTN BITS 
;DRIVE READY? 
?NO - ERROR 
^ADJUST STACK 

;GO DROP DRIVE 



?DROP THE DRIVE IF NOT READY 
;RETURN 



RtCBD DEC/X11 SYSTEM EXERCISER MODULE 
KRKBDO«Pll 12-OCT-78 12:08 



MACY11 30A(1C52) 12-OCT-78 
COMMON SUPPORT ROUTINFS 



16:59 PAGE 36 



005267 




016767 
0207 



171662 

mm 

007550* 172766 

ffiffi mm 

171612 
000002 



177777 171576 
177777 171562 
171560 171560 



171554 172704 
000060 172676 



DRVADR: 



1$: 



2S: 



3$: 
4$: 



INC 

INC 
TST 
PNE 
MOV 
J«P 
PIC 
CMP 
BEQ 
ASP 
BCC 
ADD 
BP 

MOV 
MOV 
MOV 

PR 

MOV 
BIS 

PTS 



DPYVE 

DSKADR 

DVICE 

#GONE#DRPMSG 

#177770, DSKADP 

#«. /DPYVE 

25 

DPIVE 

DPVADR 

*2,(SP> 

3$ 

if-1/DPYVE 
#-l/DSKADR 
DVTCE, DRIVE 
45 

DPYVE/NUMB 
#60, NUMB 
PC 



ICOUNT A DRIVE 

JNF.TT DRIVE 

?ANY DRIVES LEFT? 

;yes 

;STOP THE RUN 

?UP TO * DDR 7 ONLY 

?&LL DRIVES CHECKED ? 

;YES/ GO FLAG END OF DRIVES 

JNO, IS NEXT DRIVE CHOSEN ? 

;NQ, GO TRY ANOTHER DRIVE 

JAOJUST STACK POINTER 



JRESF.T DRIVE COUNTER 
;7,ER0 THE SHIFTED DRIVE # 
JRESTORE CHOSEN DRIVES 



5CURRENT DRIVE NUMBER IN MESSAGE STRING 
;MAKE IT ASCII 



RKBO QEC/X11 
XRKBD0.P11 



SYSTEM EXERCISER MODULE 
12-OCT-78 12:08 



017667 000000 172660 

mm mm' mnr 

000000* 001376* 



172504 



172564 




MACYll 30A(1052) 12-OCT-7R 16:59 PAGE 37 
COMMON SUPPORT ROUTINES 



DROP: 

1$: 
2$: 

35: 



mov 

MSGNS 
MOV 

• **** 

HPDFR 

• **** 

MOV 
MOV 
PEG 
ASL 
DEC 
BNF 
RTC 
MOV 
JSR 
TST 
RPL 
MOV 
JMP 

ADD 
PTF 



«C(SP)/HPPMSG 
/BEGIN/DPP ;ASCII MESSAGE CALL WITH COMMON HEADER 
#6,ERRTYP SOFF LINE 

*********************************************************** 

5,BF,GIN,PKCS1 ', 
*********************************************************** 

INITIALIZE DROP PICKER 
;GET THE DRIVE NUMBER 
JlF DRIVE GO DROP IT 
?NO, AIM at THE NEXT DRIVE 
;IS THIS THE ONE ? 
;NO, LOOK AGAIN 
;OROP THE DRIVE 
;ISSUS CONTROLLER CLEAR 

;go wait for cu ready 
;anv errcrs? 



#l f Rl 

DRYVE/RC 

25 



Rl/DVTCE 

gBIT15,GRKCSl 

PC,CNTRDY 

«RKCS1 

1$ 

*UNCLR,DRPMSG 

ENTFST 

#2,(SP) 

PC 



;SET ERROR MESSAGE 
;DROP MODULE 

JRETURN 



1303 




YSTEW EXERCISER MODULE 
12-OCT-78 12:0B 

: m urn 

' 0050C2 

-mm mm 

* 020001 

• mm 



MACY11 30A(1052) 12-PCT-Tfl 
COMMON SUPPOFT ROUTINES 




, 270C 

hum 

' 022700 

• mm 

' 1 6 ?700 

* 000770 

' 88838? 

* 000207 



171342 

000102 

171324 
000102 

000026 

171306 
000026 

IMS 



blkadr: 


MOV 


RLK1,PQ 




BIC 
MOV 




CLP 


R2 




MOVB 


WPUFS7+1/R2 
R?,P1 




SUB 




CMP 


RC/R1 




RLE 
SUP 


JLpo 


is: 








CLP 


CYLADR 




CLP 


SECADP 


2SS 


CMP 


K66.,RC 




BHI 




INC 


CYLADR 




SUB 

RR 


|66,/PC 


3$: 


CMP 


#22. /RO 
SECADP 




BHI 




INC 




SUB 
BR 


§22., PC 


4$: 


SWAB 


SECADR 
RC, SECADR 




BIS 




RTS 


PC 
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?GET CURRENT BLOCK NUMBER 
;CLEAP THE SIGN BIT 
;max BLOCK ADDRESS 

?GET NUMBER OF SECTORS 

;SUBTPACK NUMBER OF SECTORS TRANSFERED 

;MAKE SURE XFER WON'T RUN OFF END 

;ITS OK 

;MAKF IT SOME SMALLER NUMBER 



;GET CYLINDER NUMBER 

;ON THIS TRACK 

?NO - INCREMENT CYLINDER ADDRESS 

;SECTORS PER CYLINDER 

;FIND RIGHT CYLINDER 

?FIND TRACK 
;ON RIGHT TRACK 
;BUMP TRACK COUNTER 
;22 SECTORS PER TRACK 
?CONTINUE 

;align track bits 

^combine with sector address 

;rfturn 



SYSTEM EXERCISER MODULE 
12-OCT-78 12:08 



000366- 
171062 



007100* 010077 172302 




MACY11 30A(1052) 12-OCT-78 
COMMON SUPPORT ROUTINES 



nmv mm 



CLRRBs MOV 
MOV 

CLRCOM: CLR 
DEC 
BNF 
RTS 



RELEASE: MOV 
BIS 
JSR 
JMP 



172462 172264 



1$: 



MOV 
MOV 
MOV 
RTS 



#RBUF/R0 

RBUFS7/R1 

(RO)* 

Rl 

CLRCOM 

PC 



DSKADR,R0 

PC,RDY1 
RESTRT 

R0/0RKCS2 
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;CLEAR PBUF BUFFER 
;GET ITS ADOR AND SIZE 
?CLEAR ANOTHER 
;COUNT ANOTHER 
?BR BACK TILL DONE 



;PUT RELEASE BIT IN 



PC 



1,»RKCS1 
ELDRV,»RFCS1 



;WRITE THE COMMAND 

?DO IT 

;DO THE COMMAND 



RKBD DEC/XH SYSTEM EXERCISER MODULE 
XRKBD0«P11 12-OCT-78 12:08 



1352 007114' 001542 s 



MACY11 306(1052) 12-0CT-78 
COMMON SUPPORT ROUTINES 



1388 



007122* 
007124* 
007126* 

007130" 
007132* 
007134* 

007136* 

88M8-' 




001556* 




mm 

0&7274 
007300 
O07304 

mm 

007320 



043520 
042516 
04251" 

ml 

04610 



8881*41 

""105 

18? 




007350* 



ERTABf 


SVCS1 
FMCSl 
141777 

SVCS2 
EVCS2 
000377 

SVDS 
EMPS 
17 3707 

SVFR 




emer: 


.ASCIZ 


'TLf 




.ASCIZ 


'SKI 




, ASCIZ 


*NXF 




.ASCIZ 


'OPP 




.ASCIZ 


'FMT 




.ASCI7 


*DTY 




.ASCIZ 


*ECH 




.ASCIZ 


'BSE 




.ASCIZ 


*HVP 




.ASCIZ 


*COE 




.ASCIZ 


'IDA 




. ASCIZ 


*WLF 




.ASCIZ 


*DTE 




.ASCIZ 


*HPI 




.ASCIZ 


*UNS 




.ASCIZ 


'PCX 


emds: 


•ASCIZ 


*ACL 




.ASCIZ 


•DCL 




.ASCIZ 


'POT 




.ASCIZ 


*WRL 


EMCS2; 


.ASCIZ 


*UFE 




.ASCIZ 


**DS 




.ASCIZ 


*PGF 




.ASCIZ 


*NEM 




-ASCIZ 


*NEP 




.ASCIZ 


*T'PF, 




.ASCIZ 


*WCE 




.ASCIZ 


*PLT 


Ewcsi: 


.ASCIZ 


TDT 




.ASCIZ 


'CTH 




.ASCIZ 


'CFM 




.ASCIZ 


'SPA 




.ASCIZ 


•Cfc'P 


BLNKS: 


. ASCIZ 

.FVEN 


' ' 
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^POINTER TO ADDRESS OF REGISTER 

?START OF ERROR MESSAGES FOR THIS REGISTER 

;BIT MASK 



?ILLEGEAL FUNCTION 

;SEFK INCOMPLETE 

;NON-EXECTUABLE FUNCTION 

?DRIVE PARITY ERROR 

;FORMAT 

;DRTVF TYPE ERROR 

;ERPOP CORRECTION HARD 

;BAD SECTOR ERROR 

;HEADER VRC ERROR 

CYLINDER OVERFLOW ERROR 

;INVALID DISK ADDRESS ERROR 

;WRITE LOCK 

;DRIVE TIMMING ERROR 

OPERATION INCOMPLETE 

;DRIVE UNSAFE 

?DATA CHECK 

;PRIVE AC POWER LOW 

;DRIVE DC POWER LOW 

?DRIVE OFF TRACK 

?WRITE LOCK 

;UNIT FIELD ERROR 
^MULTIPLE DRIVE SELECT 
PROGRAMMING ERROR 
;NON EXTSTANT MEMORY 
?NON EXISTANT DRIVE 
;UNTBUS PARITY ERROR 
?WRITE CHECK ERROR 
JDATA LATE 

CONTROLLER DRIVE TYPE 
CONTROLLER TIMEOUT 
CONTROLLER FORMAT 
;SERIAL PARITY ERROR 
CONTROLLER ERROR 

?TWO BLANKS 



^ 
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444 




y 

l 
til Mil 



07456 

07464 

007472 

nm 

007510 

m 

007534 
"754" 
755 
"556 
_ 564 
007572 

" llti 

7612 
007617 

m%\i 

007640 



JI7662* 



007556* 
007564* 



007762* 

007765' 



30D40 
042520 
040517 
"4 450 4 

53440 
05C040 

m\i 

052440 

g*p 

0420 40 
047040 
040505 
047040 
'44501 
-20105 
051505 

nm 

042504 
040 

mu 

040505 

mm 

047111 

051102 

040 
042514 
046103 

m 
mm 

117 

mm 

040504 
041040 



mm 

543117 




042040 
0421C5 
020104 
046525 
044522 
047522 

044522 
040516 
0411C1 

044522 
052117 
054504 
620117 
040514 
051104 
000045 

mm 

022504 
047503 

SSS1H 

?54504 



mm 

020124 
050120 




046102 
053111 

mm 

000 
52116 

5 -M3 




HARD: 
SOFT: 

drve: 

DRP^D: 
LOAD: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



PROT: .ASCIZ 
UNAVAL: .ASCIZ 

042526 NOTRED: .ASCIZ 
0510^0 
000045 
)53101 GONE: .ASCIZ 



RTRY: .ASCIZ 

CNTRNV: .ASCIZ 

EXTRA: .ASCIZ 

calip: .asciz 



' HARD ERROR* 

* SOFT ERROR' 

* DRIVE * 

* PROPPED ' 

' DRTVE DROPEED LOAD MEDIUM*' 

* WRITE PROT.?;* 

* DRIVE UNAVAILABLE*' 

* DRIVE NOT READY*' 

* NO AVAILABLE DRIVES** 

' RETRY EXCEEDED** 

' CONTROLLER NOT READY** 

' FXTRANEOUS INTERRUPT** 

' UNABLE TO RECALIBPATE** 



UNCLP: .ASCIZ ' UNABLE TO CLEAR*' 

DRVERR: .ASCIZ * DRIVE ERROR** 
051105 PORTHC: .ASCIZ 'OTHER PORT NOT UPDATING RLOCK ZERO*' 

83812* 

043516 
045503 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
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M WW} 



r *63 
[464 
1465 
146*1 

\m 

1469 
1470 
1471 



055C 



01006< 



as 

5 



051105 022517 



040516 
047524 



046102 
051440 



mm mm 



000001 



MACYll 

COMMON 



SPINDS 



•30* (1052) 12-OCT- 
SUPPORT ROUTINES 



T8 16«.59 PAGE «2 



.ftSCIZ 'UNABLE TO START SPINDLE?' 



.EVEN 
.END 



R£BD DEC/Xll SySTEM_EXEPCISER MODULE 
X KK "iflOo P 1 1 



12-OCT-78 12508 
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ACSR 

ADDP_ 

ADDP22= 

ASB 

ASTAT 

AVFLAG 

AWAS 

BADSPT 

BEGIN 



02R 

06R 

I04R 

Hi* 
IIQR 
252R 

DOOR 



■i = 



BITi 

BIT10 
BITll 
BIT12 
IBIT13 
f BIT14 
BITl^ 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 

BITB = 

BIT9 = 

BLK 

BLKADP 

BUI 

BLNKS 

BREAKS 



-04000 

818888 

40000 
100000 



>1tt 



= 00 



h 



Hi 



89?^ 4R 

mm 

104407 




CLR.DRV 
CLRRB 

\m™ mm 

^CNTRNV 007617R 



303# 

m 

nn 

W 

330* 

Iff 

844 
1235 

w 

3278 
327# 

mt 

327* 

4W. 

327* 

l! 



384# 
489 

nv 
mi 

868 

327# 

3553 

111 

323 

% 

370# 

l fflt 

438# 
500 

W 

1094 



818* 
588 



725 
455 
581 
891 
1281 



388 

m 

387 
389 

43? 

387 

ffl 

439 
495 

387 



548 
l3§5 

616 

960f 

736* 



1087* 
1337 

668 
552 

nr 

Hilt 



463 
627 
894 
1284 
852 

388 
389 

ffl 

80 8 
439 

i m 

390 

390 
715 
617 

389 

13048 
415 

Hi 



11 



747* 
521 



6*1* 
1092* 



1190 
1333* 



654 
1220 



477 

1108 

389 
390 
389 

1232 

440 

885 

m 

866 



449* 

538 
1169 



754* 



483 

659 

1075 

1112 

1134 

70 2 

1121 



646 



512 



539 
1234 



761* 



484 
66C 

1082 

1118 
1141 



65 7 



R76 1129 
1072 1088 



547* 



559 
1235 



768* 



S q 3 
1090 
1160 



801 



714* 
5 60 



•787 



1091 



808 



514 

800 

1166 



819 



m 

1167 



874 



ill 

1168 



1070 



539 

832 

1169 



1124 



559 

841 

1234 



1147 



718* 
659 



719 
660 



721 
1074 



723* 
1075 



727 
1090 



1304 
1091 



1057* 1076* 1152* 1170* 1228* 1236* 



1219 1243 



1229 1294 835 105R 10 * 7 10S7 * 1106 



1119 



1154 



1159 
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1464R 



CSRA 

S?Sfci 

ill 

DISIHT 

mv 

DROP 
DRP 



MSG 




89§464R 
0Q7404R 

mp m 

"4070 
0344R 



RVADR 
RfE 

:,„¥ 

DSHARD 
D9KADR 



DflCE 
D?ID1 

ISSi 2 



000346R 




39311 
3948 

lii' 

487 
35 



!i 



439# 

3611 
508 

W 

399* 
1094* 
633 
396 
'12 



3628 
390? 

360* 
273* 

iUl 

1357 

w 

475 

m 

864 

848 

306* 

908 

738 

772 

784* 

327* 

828 



000044R 
1044^5 



327* 
1259 

286# 
327* 



922* 
931* 

817* 
486ft 
525* 
781 



619 

611* 

544 

Ul\n 

483 

1259* 

690 

954 

m 

460* 
915 

473 
567 

mn 

1390# 

13850 

1368* 

477 
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951* 
948* 



630 



1315* 



1264* 
675 



580* 
1280* 
1255* 
1412*1 

X M 

612* 
567* 



632 
909 



630* 

1352« 

749 



472* 
741* 



832 



1319* 



1271* 

682 



581 

1297* 

1265 

HI?. 

1255* 
577 



846 
944 



842* 
756 



70 4 
672* 

w 

1262 
650 
579* 



1095 



892* 
763 



488* 501 
745* 752* 



844 



894 



707 



673 



1269* 
694 
611 



1260 



12«2* 
781ft 



527 
759* 



1284 



8 23 
828* 



854 
829 



1274 1287 

973 1063 

1257 1271 



1298 



1178 
840* 



1103 
1292* 



1248 1252 1279* 
841 1078* 1080* 1082 



1117 1155 1188 1195 



553* 
766* 



554 
775* 



796 



RKBD DEC/X11 
XRKBD0.P11 



SYSTEW EXERCISER MODULE 
12-OCT-78 12:08 




m* 



OTOAS a 

HSEtf 

PICKBK 



104420 

000034P 
003346R 

nm 

022626 

mp- 




0O2OO 
2Q524Q 
000300 

988342 

mm 

104417 
000054R 
00Q366R 
O0C130R 



288* 

401" 

364 

283 

284* 

313* 

325* 

280 5 

372« 

"2i 



460# 
466* 
469« 
468 

it* 



ill 



327* 

? 

327# 

mi 

462 

mt 

327* 

m 

327* 
272 

327* 
327} 

m 
§ 

32 7 * 

290* 

314 

316* 



960* 
619* 



464 



459* 
448* 

ililS 

479 



1416* 
479 
470 



m, 



325* 
483 



690* 

642 

714* 
803 



142*?* 
327* 



327* 



717 
718 

368* 
748 
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46 



966* 



7R4* 



454 
581 



142 8* 

955 
693 
275 

Wn 

1197 
720 



1458* 



1009 



799* 



838 
627 



1274* 
706 

276 
308 



724 



806 



673 



1275* 
709 
277 
310 



728 



829 



841 



891 



m m m 



1082 



We 



1281 



m m m 



5C1* 
755 



502* 
762 



518 
769 



529 
981 



531 



533 



547 554* 



995 1333 



RKBD DEC/X11 SYSTEM EXE 
XRKBD0.P11 12-OCT-7R 



:i 



>§l 

RBUFVA 

m 

READ 

nm 

RECALX 
RELEAS 

RT 



SkasSf 

RKBA 

mm 



mi® 

00124R 

Q6254R 

03722R 

R 

R 

_ ..P 

604R 

60R 

" OR 

t 60R 

&1506R 

01414R 

U01402R 



r §p 

2 00006 



RKCS2 001406R 



RKDA 

RKECPS 
RKECPT 



SOFPAS 



SR2 



H4n4R 

liii 



mm 

0Q7576R 

" "'"28 

.._ 2R 
002446R 

000&42R 

104406 

050Q46R 

" 70R 

sfll 



SHi 



uyu 

si 



00020R 

~ m i 

0§26R 

\%m 

1542R 
001552R 



451 

mi 

327* 

287* 

919 

676 

437* 

281| 

274« 
275JE 

m 
m* 
m 

404 
408 



493 

456 
455 
648 
526 
520 

1227 

535 
453* 



RCTSER MODULE 
12:08 



mi 

314# 
638 
517 
492 

m 

44U 
505 
309 
292* 
293* 
403* 
380tf 
375* 

m, 

808 
1105* 

1188* 
376* 
3P1* 
378* 
382* 

if 

309* 

1435* 

302* 
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783* 
60 3* 
593* 

812 
1118* 

i m 

1195* 
595* 
605* 
599* 
6C8* 



591* 



in 

567* 
898 



652 



446* 

mt 

418* 
422* 



521 
1334 

664 

775# 

549 

556 
7*6 



85C* 

7R7* 

625 

817 

1147* 

129 5 

623* 
1348* 
790* 
7R9* 
646 



W l i?9 



788* 



1005 
1064 



907* 



495 



1018 

m 



692 



745ft 
12C 8 



1343tf 
825 



855 

975* 

6 30 
P19* 

H 5 3* 

1350* 

640* 

980* 
976* 
657 



987 
974* 



mr 

920* 



617 



1045 



754 



860 



8*8 



642* 

821 

1158* 

650* 



979* 
702 



1325* 
1158 



818 
1356 



715 



826 



7*1 
97C 



971 



694* 



1070 



1329* 
1350 



852 



879 



768 
10*1 



1346 



644 652"* 

836 8*4 

1190* 1197* 



834* 



1072 



1330* 



870 



913 



975 
1208« 



1215 



1223 



1239 



1345 



655 

988* 

1199* 

973* 



1107 



668* 

991 

1219* 

1063* 



1108 



696* 
1059 
1221 



698 798* 
1064* 1068 
1227* 1230 



1103* 1117* 



1123 



1160 



1120 



1232 



901* 
1088 
1243* 

1155* 



885 



1352 



»!k 
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001554R 
- — -~ 4R 

6R 

001.556R 

mm 

6R 

OR 
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XFLAG 

XMEM 



42R 
62R 



407 


421* 












412 


426* 


1003 










409 


423* 

ml 


915 


1360 








m 


\m 










410 


424* 


866 


874 


076 


917 


1364 


nn 














m 


























298* 
299« 
300* 






































405 


419* 












289* 
388ft 














913 












389* 


911 












404* 
3 48* 


m* 


894 
781* 


7«9 








350* 
327* 

349* 


504* 


506* 


525* 


542* 






771* 
1424* 


782* 


79^ 








683 












627 


824 


840 


1297 


1451* 






tm 


l \ir 


1141* 










30 4* 














319* 

mi 


737 

736 












321# 


464 


1308 










nr* 


465* 
45?* 


m 


753 


760 


767 


353* 


735* 


746* 


753* 


760* 


767* 


788 


311* 


446* 












m* 


nil 












491 


741* 












490 


734* 












m 


m* 


766fl 










767* 


776 












m 


748* 


755* 


762* 


769* 


791 


368* 


494 


522 


978 


140 60 





ABS, 



mm m 



ERRORS DETECTED: 
.DEFAULT GLOBALS GENERATED: 

?XRKBDC,XRKBD0/SOL/CRF:SYM=DDXCOM,XRKBD0 
ROW-TIME: 2 3 .5 SECONDS 
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